﻿Imports System.Data
Imports PadovadoAPI

Partial Class ScopriPadova_Luoghi
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not String.IsNullOrEmpty(Request.QueryString("Luogo")) Then
            Dim sql As String = ""
            ' Try

            Dim ds As New DataSet

            Dim dbConnector As New DBObject

            sql = "Select Descrizione FROM Luogo WHERE Nome like '" & Request.QueryString("Luogo").Replace("ScopriPadova_", "") & "'"
            ds = dbConnector.FillDS(sql, Nothing, 1)

            If Not IsNothing(ds) AndAlso Not IsNothing(ds.Tables) AndAlso ds.Tables.Count > 0 AndAlso ds.Tables(0).Rows.Count > 0 Then
                LitText.Text = ds.Tables(0).Rows(0).Item(0)
            End If
        End If
    End Sub
End Class
